home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 0292.ZIP / MAILMEN.ARC / BIRTHDAY.PRG next >
Text File  |  1985-12-21  |  768b  |  40 lines
  1. * Converted to Dbase III by Bill Simpson 6/7/85 (713) 530-8500
  2. *!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
  3. *
  4. SET HEADING OFF
  5. SET SAFETY OFF
  6. * BIRTHDAY.PRG PRINTS CHRISTMAS LABELS FOR MAILING LIST PROGRAM (C) COPYRIGHT
  7. * DECEMBER 3, 1983 BY PHILIP K. PERLMAN
  8. SET TALK OFF
  9. CLEAR
  10. @ 10,5 SAY 'Mount Labels one across by 15/16" high in Printer'
  11. @ 12,5 SAY 'Press any key when ready'
  12. ?
  13. ?
  14. ?
  15. ?
  16. ?
  17. ?
  18. ?
  19. ?
  20. ?
  21. wait
  22. USE MAIL
  23. GO TOP
  24. SET PRINT ON
  25. ? CHR(15)
  26. DO WHILE .NOT. EOF()
  27.   IF BIRTHDAY <> ' '
  28.     ? TRIM(FIRST), LAST
  29.     ? ADDR1
  30.     ? ADDR2
  31.     ? TRIM(CITY)-"," , STATE, ZIP
  32.     ? BIRTHDAY
  33.     ? 
  34.   ENDIF
  35.   SKIP
  36. ENDDO
  37. ? CHR(18)
  38. SET PRINT OFF
  39. RETURN
  40.